home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / numlib.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  7.7 KB  |  254 lines
  1.  
  2. static L15();
  3. static L16();
  4. static L17();
  5. static L18();
  6. static object LI1();
  7. #define VMB1 register object *base=vs_top;
  8. #define VMS1  register object *sup=vs_top+4;vs_top=sup;
  9. #define VMV1 vs_reserve(4);
  10. #define VMR1(VMT1) vs_top=base ; return(VMT1);
  11. static object LI2();
  12. #define VMB2 register object *base=vs_top; object  V15 ,V14 ,V13 ,V12 ,V11 ,V10;
  13. #define VMS2  register object *sup=vs_top+2;vs_top=sup;
  14. #define VMV2 vs_reserve(2);
  15. #define VMR2(VMT2) vs_top=base ; return(VMT2);
  16. static object LI3();
  17. #define VMB3 register object *base=vs_top;
  18. #define VMS3  register object *sup=vs_top+3;vs_top=sup;
  19. #define VMV3 vs_reserve(3);
  20. #define VMR3(VMT3) vs_top=base ; return(VMT3);
  21. static object LI4();
  22. #define VMB4 register object *base=vs_top;
  23. #define VMS4  register object *sup=vs_top+2;vs_top=sup;
  24. #define VMV4 vs_reserve(2);
  25. #define VMR4(VMT4) vs_top=base ; return(VMT4);
  26. static object LI5();
  27. #define VMB5 register object *base=vs_top;
  28. #define VMS5  register object *sup=vs_top+1;vs_top=sup;
  29. #define VMV5 vs_reserve(1);
  30. #define VMR5(VMT5) vs_top=base ; return(VMT5);
  31. static object LI6();
  32. #define VMB6 register object *base=vs_top; object  V37 ,V36 ,V35 ,V34 ,V33 ,V32;
  33. #define VMS6  register object *sup=vs_top+2;vs_top=sup;
  34. #define VMV6 vs_reserve(2);
  35. #define VMR6(VMT6) vs_top=base ; return(VMT6);
  36. static object LI7();
  37. #define VMB7 register object *base=vs_top; object  V48 ,V47 ,V46 ,V45 ,V44 ,V43;
  38. #define VMS7  register object *sup=vs_top+2;vs_top=sup;
  39. #define VMV7 vs_reserve(2);
  40. #define VMR7(VMT7) vs_top=base ; return(VMT7);
  41. static object LI8();
  42. #define VMB8 register object *base=vs_top; object  V54 ,V53;
  43. #define VMS8  register object *sup=vs_top+2;vs_top=sup;
  44. #define VMV8 vs_reserve(2);
  45. #define VMR8(VMT8) vs_top=base ; return(VMT8);
  46. static object LI9();
  47. #define VMB9 register object *base=vs_top; object  V59 ,V58;
  48. #define VMS9  register object *sup=vs_top+2;vs_top=sup;
  49. #define VMV9 vs_reserve(2);
  50. #define VMR9(VMT9) vs_top=base ; return(VMT9);
  51. static object LI10();
  52. #define VMB10 register object *base=vs_top;
  53. #define VMS10  register object *sup=vs_top+2;vs_top=sup;
  54. #define VMV10 vs_reserve(2);
  55. #define VMR10(VMT10) vs_top=base ; return(VMT10);
  56. static object LI11();
  57. #define VMB11 register object *base=vs_top; object  V67 ,V66;
  58. #define VMS11  register object *sup=vs_top+2;vs_top=sup;
  59. #define VMV11 vs_reserve(2);
  60. #define VMR11(VMT11) vs_top=base ; return(VMT11);
  61. static object LI12();
  62. #define VMB12 register object *base=vs_top; object  V73 ,V72 ,V71;
  63. #define VMS12  register object *sup=vs_top+4;vs_top=sup;
  64. #define VMV12 vs_reserve(4);
  65. #define VMR12(VMT12) vs_top=base ; return(VMT12);
  66. static object LI13();
  67. #define VMB13 register object *base=vs_top; object  V77;
  68. #define VMS13  register object *sup=vs_top+4;vs_top=sup;
  69. #define VMV13 vs_reserve(4);
  70. #define VMR13(VMT13) vs_top=base ; return(VMT13);
  71. static object LI14();
  72. #define VMB14 register object *base=vs_top; object  V90 ,V89 ,V88 ,V86 ,V85;
  73. #define VMS14  register object *sup=vs_top+1;vs_top=sup;
  74. #define VMV14 vs_reserve(1);
  75. #define VMR14(VMT14) vs_top=base ; return(VMT14);
  76. #define VC15
  77. #define VC16
  78. #define VC17
  79. #define VC18
  80. static object LI19();
  81. #define VMB19 register object *base=vs_top;
  82. #define VMS19  register object *sup=vs_top+3;vs_top=sup;
  83. #define VMV19 vs_reserve(3);
  84. #define VMR19(VMT19) vs_top=base ; return(VMT19);
  85. static object LI20();
  86. #define VMB20 register object *base=vs_top;
  87. #define VMS20  register object *sup=vs_top+3;vs_top=sup;
  88. #define VMV20 vs_reserve(3);
  89. #define VMR20(VMT20) vs_top=base ; return(VMT20);
  90. static object LI21();
  91. #define VMB21 register object *base=vs_top;
  92. #define VMS21  register object *sup=vs_top+3;vs_top=sup;
  93. #define VMV21 vs_reserve(3);
  94. #define VMR21(VMT21) vs_top=base ; return(VMT21);
  95. static object LI22();
  96. #define VMB22 register object *base=vs_top;
  97. #define VMS22  register object *sup=vs_top+3;vs_top=sup;
  98. #define VMV22 vs_reserve(3);
  99. #define VMR22(VMT22) vs_top=base ; return(VMT22);
  100. static object LI23();
  101. #define VMB23 register object *base=vs_top;
  102. #define VMS23  register object *sup=vs_top+3;vs_top=sup;
  103. #define VMV23 vs_reserve(3);
  104. #define VMR23(VMT23) vs_top=base ; return(VMT23);
  105. static object LI24();
  106. #define VMB24 register object *base=vs_top;
  107. #define VMS24  register object *sup=vs_top+3;vs_top=sup;
  108. #define VMV24 vs_reserve(3);
  109. #define VMR24(VMT24) vs_top=base ; return(VMT24);
  110. static object LI25();
  111. #define VMB25 register object *base=vs_top;
  112. #define VMS25  register object *sup=vs_top+2;vs_top=sup;
  113. #define VMV25 vs_reserve(2);
  114. #define VMR25(VMT25) vs_top=base ; return(VMT25);
  115. static object LI26();
  116. #define VMB26 register object *base=vs_top; object  V147;
  117. #define VMS26  register object *sup=vs_top+2;vs_top=sup;
  118. #define VMV26 vs_reserve(2);
  119. #define VMR26(VMT26) vs_top=base ; return(VMT26);
  120. static object LI27();
  121. #define VMB27
  122. #define VMS27
  123. #define VMV27
  124. #define VMR27(VMT27) return(VMT27);
  125. static object LI28();
  126. #define VMB28
  127. #define VMS28
  128. #define VMV28
  129. #define VMR28(VMT28) return(VMT28);
  130. static object LI29();
  131. #define VMB29
  132. #define VMS29
  133. #define VMV29
  134. #define VMR29(VMT29) return(VMT29);
  135. static object LI30();
  136. #define VMB30 register object *base=vs_top; object  V167 ,V166 ,V165 ,V164;
  137. #define VMS30  register object *sup=vs_top+2;vs_top=sup;
  138. #define VMV30 vs_reserve(2);
  139. #define VMR30(VMT30) vs_top=base ; return(VMT30);
  140. static object LI31();
  141. #define VMB31 object  V173;
  142. #define VMS31
  143. #define VMV31
  144. #define VMR31(VMT31) return(VMT31);
  145. static object LI32();
  146. #define VMB32 register object *base=vs_top;
  147. #define VMS32  register object *sup=vs_top+2;vs_top=sup;
  148. #define VMV32 vs_reserve(2);
  149. #define VMR32(VMT32) vs_top=base ; return(VMT32);
  150. static object LI33();
  151. #define VMB33 register object *base=vs_top; object  V187 ,V186;
  152. #define VMS33  register object *sup=vs_top+6;vs_top=sup;
  153. #define VMV33 vs_reserve(6);
  154. #define VMR33(VMT33) vs_top=base ; return(VMT33);
  155. static object LI34();
  156. #define VMB34 register object *base=vs_top; object  V196 ,V195;
  157. #define VMS34  register object *sup=vs_top+2;vs_top=sup;
  158. #define VMV34 vs_reserve(2);
  159. #define VMR34(VMT34) vs_top=base ; return(VMT34);
  160. #define VM34 2
  161. #define VM33 6
  162. #define VM32 2
  163. #define VM31 0
  164. #define VM30 2
  165. #define VM29 0
  166. #define VM28 0
  167. #define VM27 0
  168. #define VM26 2
  169. #define VM25 2
  170. #define VM24 3
  171. #define VM23 3
  172. #define VM22 3
  173. #define VM21 3
  174. #define VM20 3
  175. #define VM19 3
  176. #define VM18 5
  177. #define VM17 5
  178. #define VM16 5
  179. #define VM15 5
  180. #define VM14 1
  181. #define VM13 4
  182. #define VM12 4
  183. #define VM11 2
  184. #define VM10 2
  185. #define VM9 2
  186. #define VM8 2
  187. #define VM7 2
  188. #define VM6 2
  189. #define VM5 1
  190. #define VM4 2
  191. #define VM3 3
  192. #define VM2 2
  193. #define VM1 4
  194. static char * VVi[34]={
  195. #define Cdata VV[33]
  196. (char *)(LI1),
  197. (char *)(LI2),
  198. (char *)(LI3),
  199. (char *)(LI4),
  200. (char *)(LI5),
  201. (char *)(LI6),
  202. (char *)(LI7),
  203. (char *)(LI8),
  204. (char *)(LI9),
  205. (char *)(LI10),
  206. (char *)(LI11),
  207. (char *)(LI12),
  208. (char *)(LI13),
  209. (char *)(LI14),
  210. (char *)(L15),
  211. (char *)(L16),
  212. (char *)(L17),
  213. (char *)(L18),
  214. (char *)(LI19),
  215. (char *)(LI20),
  216. (char *)(LI21),
  217. (char *)(LI22),
  218. (char *)(LI23),
  219. (char *)(LI24),
  220. (char *)(LI25),
  221. (char *)(LI26),
  222. (char *)(LI27),
  223. (char *)(LI28),
  224. (char *)(LI29),
  225. (char *)(LI30),
  226. (char *)(LI31),
  227. (char *)(LI32),
  228. (char *)(LI33),
  229. (char *)(LI34)
  230. };
  231. #define VV ((object *)VVi)
  232. static object  LnkTLI19() ;
  233. static object  (*LnkLI19)() = LnkTLI19;
  234. static object  LnkTLI18() ;
  235. static object  (*LnkLI18)() = LnkTLI18;
  236. static object  LnkTLI17() ;
  237. static object  (*LnkLI17)() = LnkTLI17;
  238. static object  LnkTLI16() ;
  239. static object  (*LnkLI16)() = LnkTLI16;
  240. static object  LnkTLI15() ;
  241. static object  (*LnkLI15)() = LnkTLI15;
  242. static object  LnkTLI14() ;
  243. static object  (*LnkLI14)() = LnkTLI14;
  244. static object  LnkTLI13() ;
  245. static object  (*LnkLI13)() = LnkTLI13;
  246. static  LnkT12() ;
  247. static  (*Lnk12)() = LnkT12;
  248. static object  LnkTLI11() ;
  249. static object  (*LnkLI11)() = LnkTLI11;
  250. static object  LnkTLI10() ;
  251. static object  (*LnkLI10)() = LnkTLI10;
  252. static object  LnkTLI9() ;
  253. static object  (*LnkLI9)() = LnkTLI9;
  254.